perm filename DIDDY.1[NEW,LSP] blob
sn#335146 filedate 1978-02-16 generic text, type C, neo UTF8
COMMENT ā VALID 00002 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 \|\\M0NGB40\M1NGR30\M2nonmi\M3 gacb25\M4nonsbi\M5nonsb\
C00004 ENDMK
Cā;
\|\\M0NGB40;\M1NGR30;\M2nonmi;\M3 gacb25;\M4nonsbi;\M5nonsb;\;
\F0\CComments\.\F1
\J Commenting code is done, among other things, so that
other people can figure out what the code is doing and thus
understand, modify, and use it. Comments should be short, concise,
unambiguous, and \F2RHYME!:\.
\F3IFE QIO,[
READLIST: MOVEI B,MKNAM2 ;SUBR 1
JUMPE A,RDL12 ;MKNAM2 IS JUST THE THING:
JSP T,SPECBIND ;LIKE KRYPTONITE, IT GLOWS COLD GREEN;
Q% 0 B,TYIMAN ;FORCE TYIMAN TO DO OUR WILL,
Q% 0 NIL,TMBBC ;SO READ FROM READLIST GETS ITS FILL!
0 A,MKNM3
MOVEI A,(B)
PUSHJ P,READ0A
SKIPE T,MKNM3
CAIN T,-1
JRST UNBIND
LERR EMS1 ;EXTRA CHARS IN LIST
\R\F4From \F5The Maclisp Source.\.